home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kolekce / d6 / rxlibsetup.exe / {app} / units / RXCONST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-02-19  |  2.1 KB  |  96 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {         Delphi VCL Extensions (RX)                    }
  4. {                                                       }
  5. {         Copyright (c) 2001,2002 SGB Software          }
  6. {         Copyright (c) 1997, 1998 Fedor Koshevnikov,   }
  7. {                        Igor Pavluk and Serge Korolev  }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11.  
  12. unit RXConst;
  13.  
  14. interface
  15.  
  16. {$I RX.INC}
  17.  
  18. uses Controls;
  19.  
  20. const
  21.   RX_VERSION = $0002004B;  { 2.75 }
  22.  
  23. const
  24. { Command message for Speedbar editor }
  25.   CM_SPEEDBARCHANGED = CM_BASE + 80;
  26. { Command message for TRxSpeedButton }
  27.   CM_RXBUTTONPRESSED = CM_BASE + 81;
  28. { Command messages for TRxWindowHook }
  29.   CM_RECREATEWINDOW  = CM_BASE + 82;
  30.   CM_DESTROYHOOK     = CM_BASE + 83;
  31. { Notify message for TRxTrayIcon }
  32.   CM_TRAYICON        = CM_BASE + 84;
  33.  
  34. const
  35.   crHand     = TCursor(14000);
  36.   crDragHand = TCursor(14001);
  37.  
  38. const
  39. { TBitmap.GetTransparentColor from GRAPHICS.PAS use this value }
  40.   PaletteMask = $02000000;
  41.  
  42. {$IFDEF VER90}
  43. const
  44.   SDelphiKey = 'Software\Borland\Delphi\2.0';
  45. {$ENDIF}
  46.  
  47. {$IFDEF VER93}
  48. const
  49.   SDelphiKey = 'Software\Borland\C++Builder\1.0';
  50. {$ENDIF}
  51.  
  52. {$IFDEF VER100}
  53. const
  54.   SDelphiKey = 'Software\Borland\Delphi\3.0';
  55. {$ENDIF}
  56.  
  57. {$IFDEF VER110}
  58. const
  59.   SDelphiKey = 'Software\Borland\C++Builder\3.0';
  60. {$ENDIF}
  61.  
  62. {$IFDEF VER120}
  63. const
  64.   SDelphiKey = 'Software\Borland\Delphi\4.0';
  65. {$ENDIF}
  66.  
  67. {$IFDEF VER125}
  68. const
  69.   SDelphiKey = 'Software\Borland\C++Builder\4.0';
  70. {$ENDIF}
  71.  
  72. {$IFDEF VER130}
  73. const
  74.   SDelphiKey = 'Software\Borland\Delphi\5.0';
  75. {$ENDIF}
  76.  
  77. {$IFDEF VER140}
  78. const
  79.   SDelphiKey = 'Software\Borland\Delphi\6.0';
  80. {$ENDIF}
  81.  
  82.  
  83. implementation
  84.  
  85. uses {$IFDEF WIN32} Windows, {$ELSE} WinProcs, {$ENDIF} Forms;
  86.  
  87. {$IFDEF WIN32}
  88.  {$R *.R32}
  89. {$ELSE}
  90.  {$R *.R16}
  91. {$ENDIF}
  92.  
  93. initialization
  94.   Screen.Cursors[crHand] := LoadCursor(hInstance, 'RX_HANDCUR');
  95.   Screen.Cursors[crDragHand] := LoadCursor(hInstance, 'RX_DRAGCUR');
  96. end.